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FORTRAN IV COMPARISONS 


Attached is a FORTRAN IV Comparison for the 200, 400, and 600 lines 
which was prepared in July, 1964. A brief glance will show clearly 
that the 400 is a subset of the other four. While both the 200 and 
600 versions have limited extensions, the block name in the 200 line. 
is the only restriction that prevents 600, I.B.M., and A.S.A. from 
being a subset. It appears only the G conversion prevents the 200, 
I.B.M., and A.S.A. from being a subset of the 600, excluding the 200 - 
line extensions. 


(Prepared by Applied Programming Sub-section, July 22, 1964) 


A. E. Training 
H. L. Berkey/les 
February 15, 1965 


FORTRAN IV COMPARATIVE ANALYSIS (7/64) 


| 


FEATURE 
10 Digits ZS) }10 Digits 


-CHARACTER SET 26 Letters 26 Letters 26 Letters gc) 
v 10 Digits 10 Digits 10 Digits a ( 
11 Special 11 Special 12 Special - {12 Special |© 11 Special 
‘| COMMENTS C in Column 1 C in Column 1 eee 1 C in Column 1 C in Column 1 — 
END OF PROGRAM | END in Columns END in Columns ‘END in Columns’ | END in Columns END in Columns 
: 7-72 7-72 7-72 7-72 7-72 
——— 


CONTINUATION Non-Zero - |Non-Zero r Non-Zero Non- Zero 
LINE Non Blank in Non Blank in _in  — | Non Blank in Non Blank in 
Column 6 Column 6 } } Column 6 (\{ nee) Column 6 


“| STATEMENTS In Columns 7-72 In Columns 7-72 | In Columns 7-72 In Columns 7-72 In Columns 7-72 
“| SYMBOLIC NAMES 1-12 Alphanumeric|]1-6 Alphanumeric |1-6 Alphanumeric |1-6 Alphanumeric {1-6 Alphanumeric 
, “ 


“v 


Specified by 
TYPE Statement 


Characters, Characters, Characters, Characters, Characters, 
DATA TYPES 


First is Alpha First is Alpha First is Alpha First is Alpha First is Alpha 
Specified by No Double Preci- {Specified by Specified by 
INTEGER DATA 
REAL DATA © +-40%76 and 0 
9 Decimal Digits 


TYPE Statement sion or Complex |TYPE Statement TYPE Statement 
or Logical ig \ 
| DOUBLE PRECISION| *19/°, 1976? Nhe ious 


w 


ed See eee eee oo 


Integers +t,-, 


| Integers +,-,0 
It 99° Zand 0 


+54)128 


Integers +,-,0 Integers +,-,0 


23 Bits + Sign 


Integers +,-,0 


ar 
10-127 
8 Decimal Digits 


9 Decimal Digits 


a ec = +,-,0 with less 
» . fO7 Sy error than Real 
18 Decimal Digits} Conversion 

[497127 4, Ep tee 
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+,-,0 with greater 
Accuracy than Real 
Conversion 


DATA and 0 
18 Decimal Digits 
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im \. a oS \. bs 
x) yal 


1 ea ee at eS 
ty 2 a 


- FORTRAN: IV COMPARATIVE ANALYSIS 


COMPLEX DATA A Real Pair Not Allowed A Real Pair 


HOLLERITH DATA Any Valid Alpha |Allowed Any Valid Alpha | Any Valid Alpha |Any Valid Alpha 
. Symbol String Symbol String Symbol String Symbol String 


INTEGER CONSTANT | Non. Empty String |Non Empty String | Non Empty String | Non Empty String | Non Empty String 
of Digits of Digits of Digits of Digits of Digits 
Sign, 1-6 Digits 1-11 Digits 


REAL CONSTANT Integer + Decimal} Integer + Decimal| Integer + Decimal}] Integer + Decimal 
Point + Fraction | Point + Fraction } Point + Fraction | Point + Fraction 
+ E + Exponent +-E + Exponent + E + Exponent + E + Exponent 


1-9 Digits Sign 


| DOUBLE PRECISION | Contains letter |Not Allowed 
CONSTANT D instead of E 

Sign, 1-18 Digits 
Exponent 

COMPLEX CONSTANT {A Real Pair Not Allowed A Real Pair - A Real Pair A Real Pair 
(a,b) (a, b) (a,b) (a,b) 

LOGICAL CONSTANT TRUE, or Not Allowed 1 .TRUE. or TRUE. or .TRUE. or 
. FALSE. FALSE. FALSE. . FALSE, 


HOLLERITH 
CONSTANT 
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Integer + Decima 
Point + Fraetion 
+ E + Exponent 


Contains letter 
D instead of E 


Contains letter 
D instead of E 


Contains letter 
D instead of E 


TVA ss oie ce 
Only in Data 
Statement 


nH. ...6. TBs saes calc Aare es ; 


Single Element 
with Symbolic 
Name 


Single Element 
with Symbolic 
Name 


Single Element 
with Symbolic 
Name 


Single Element 
with Symbolic 
Name 


Single Element 
with Symbolic 
Name 


VARIABLE 


ARRAY ELEMENT. 


SUBSCRIPT 
EXPRESS IONS 


ARITHMETIC 
EXPRESSIONS 


RELATIONAL 
EXPRESSIONS 


ASSIGNMENT 
STATEMENT 


‘FORTRAN IV 


Ordered Set of . 
1-64 Dimensions 


Member of Array 


Referenced by 
Subscripts 


ee ioe eiaate: 


Expression 


Mode Except 
CPX/DP 


Mode Eecest any 


‘that: Use CPX 


Allows any Mix 
of Arithmetic 


Data 


Ordered Set of 
L253 or 


Dimensions 


Member of ace 


-|Referenced by 


Subscripts 


Real + DP -= DP 
Real +. Crk 


-CPX and DP 
Not Available 


‘COMPARATIVE ANALYSIS 


| Ordered Set of 


1, e=ors 10 7] 
Dimensions 


Member of Array 


|Referenced by 


Subscripts _ 


Ordered Set of 


Ls 2 or 3 
Dimensions 
Member of Array 


Referenced by 
| Subscripts 


[4410 


Allows 


Real + DP = DP 


CPX |Real + CPX = CPX 


Allows 

Iop I DP op R 
R op R_ DP op DP 
R op. DP 


Does not Allow 
Mix between 


“- -CPX and Others 


Allows 


Real +. DP = ‘DP 


Ordered eae of 
Le 23 or 3 
Dimensions 
Member of Array 
Referenced by 


‘Subscripts | 


1 Allows 


Real + DP = DP 


Real + CPX = CPX | Real + CPX = CPX 


Allows 
I op I DP op R 


Does not Allow 
Mix between 
CPX and Others 


-Allows 


R op DP Iop I 


Does not Allow 
Mix between 


CPX and Others 
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FORTRAN IV _ COMPARATIVE ANALYSIS 
FEATURE . B.M. A.S.A. eee el 


ASSIGN | Assign K to I Assign K to I Assign K to I Assign.K to I Assign K to I 
STATEMENT K is Statement K is Statement K is Statement K is Statement K is Statement 
Label I is Label TI is Label Iis Label I is _|Label Tis 
| Integer Variable {Integer Variable | Integer Variable Integer Variable | Integer Variable 


| 
GO TO STATEMENT Unconditional, Unconditional, . |{/Unconditional, Unconditional, Unconditional, 
Assigned, Assigned, Assigned, Assigned, Assigned, 
wempeeed Computed Computed Computed 


ARITHMETIC IF °- ik K IF (e) Kok 


IF (e) K,,K 
STATEMENT 


2K 27K, 
e Gannot be a DP 


or: Logical 


LOGICAL IF F (e) S Not Allowed IE 
STATEMENT i 


CALL STATEMENT | CALL S (a,b,...) |] CALL S (Gbend Lag BS: Gas bees : CALL S (a,b, 
CALL S C iS CALL S 
Arguments may 
[apes oeeone 


RETURN 
STATEMENT 


STOP : N STOP N 

STOP STOP 

Nis 1-5 Octal Nis 1-5 Octal 
| Digits Digits 
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PAUSE 
STATEMENT 


ORMATTED WRITE | WRITE 


rr, 


MATTED 


© 


FORTRAN IV 


PAUSE N 
PAUSE 


nc 219 


N cannot be GO 
TO, Arith. IF, 
RETURN, STOP, 
PAUSE, or DO 


Subset of the 
Larger DO 


-PAUSE N 
15 


-PAUSE 


N<2 


N cannot be GO 
T0O,. Arith. IF, 
RETURN, STOP, 


Subset of the 
Larger DO 


(U,F) K 
WRITE (U,F) 


~\ 
Ng 


READ (i) K 
READ (U) 
WRITE (U) K 
WRITE (U) 


READ 


READ (U,F) K. 
(U,F) 


WRITE (U,F) K 
WRITE (1, F) 
READ (U) K 
READ (U) 


WRITE (U) K 
WRITE (U) 


COMPARATIVE ANALYSIS 


N cannot be GO 
ZO, Arith. IF, 
RETURN, STOP, 


PAUSE, or DO 


Subset of the 


Larger DO 


READ (U,F) K 


WRITE (U,F) K 
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PAUSE N 

PAUSE 

N is 1-5 Octal 
Digits 

DON i = m,m,m, 
DONi = mm, 


N cannot be GO 
TO, Arith. IF 
RETURN, STOP, 


3 


PAUSE, or DO 


WRITE (U,F) K 


WRITE (U) K 


PAUSE N 
PAUSE 
Nis 1-5 


Digits 


N cannot be GO 
20. AL OL 
RETURN, STOP, 


WRITE (U,F) K 
WRITE (U,F) 


ae 


READ (U) K 
READ (U) 


WRITE (u) K 
WRITE (U) 
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FORTRAN IV 


_ COMPARATIVE ANALYSIS 


| ENDFILE 


CARRIAGE 


~ CONTROL, 
CONVENTIONS 


EQUIVALENCE 


BLANK - One Tine 
= Two Lines 

Next Fage 

No Advance 


| Stardee: Shatin’ 
All CDE must be 


First in. PeOprem 


‘TYPE STATEMENTS | Integer 


Double Precision 
Complex 
| bogical | 


Tpiank - - One Line 
- Two Lines 

Next Page 

(pee Characters) 


‘lpamaseion: Info. 
[No Block Names 


Blank - One Line 


-~ Two Lines 
1 Next Page 


Dimension. Info. 
Block Names 


Storage Sharing 
All -CDE must be 
First in. eeceran 


External 


: Dime ae 2166s 


Integer \ WFO 
Real “a 
Double Precision 
Complex 

[Logical 


Blank - One Line 
0 - Two Lines 
1 Next Page 

No Advance 


Dimension. Info. 
Block Names _ 


-External 
Vy 2Vo00- 


‘Integer 


Real 


Double Precision . 


Complex 
| Logical 


Blank - Gia Line 
0 - Two Lines 
1. Next .Page 

No .Advance 


External 


Integer 


Real 
Double: Precision 


Complex 


| Logical 


DATA STATEMENT | DATA K, 2, Piss Not. Allowed DATA K._ 2D, i DATA K / Pe DATA K,/D,/.. fo 
D, 1, ice lr, E, I, A, H, ra D, E, F, t, o: 
ae a A, UL, HX 
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"FORMAT FIELD 


r DESCRIPTORS 


3 


D, E, 
A, L, 


cA ox pyc 


Format Rat. 
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aan 
eg 


fal 1g 
ie, ab QLG sata ¢ ty te a pe ee 


FORTRAN IV _ COMPARATIVE ANALYSIS 


FORMAT. FIELD ‘and ae Sand sep Sand in aha 7 nana jf 
SEPARATORS 
-_ [dmrvep FREUMES | 
FORMAT REPEAT ee Count | Re Count Tabecer Count biieeieea Count ee Count (7% 
before Descriptor before Descriptor | before Descriptor before Descriptor before Descriptor} 


FORMAT -- 1/0 1/0 on Format 
INTERACTION. Control 


I/O on. Format 
Control or 
Length of.Record 


1/0 on Format 
Control 


I/O on Format 
Control 


1/0 on Format 
Control 


Applies to All 
E By.:G,<D 
Conversion 


Applies to All 
F,E Conversion 


SCALE FACTOR — Applies to All 
F, E, G, D 


Conversion 


eshte to Ail 
F,.E,.D 


Conversion 


Applies to Ail 
|F, E, G, D 
Conversion 


STATEMENT 
‘FUNCTION 


Before. Execu- 
tables 
£ (4s.5.b) =e 


Before Execu- 
tables State- 
ment 

£ (a....b) =e 


Not: External 
f €a....b) =e 
e is Integer © 
or Real 


Before’ Execu- 
tables not 
ye 


Not External 
£ (a....b) = 


INTRINSIC 
FUNCTIONS 


See 
eppene i, A 


See See 
Appendix A | Pppendse. A 


See 
appendix: A 


Appendix A 


T Function F(... 
Integer, Real 

Double Precision, 
Complex & Logical 


T. Function oe 
Integer, Real, 

Double Precision, 
Complex & Logical 


Function F(... 
TYPE Function 
F (,. 


T.Function Flo. 
Integer, Real 


T ranction FC. ov 

Integer, Real, 

Double Precision,}| 
Complex & Logical 


FUNCTION 
STATEMENT 


BASIC 


See See See See See 
EXTERNAL Appendix B | Appendix .B Appendix B | Appendix .B Appendix B 
FUNCTIONS 


Subroutine 


S Uaaea 


Subroutine 
5 C85 


Subroutine 
S Gass 


Subroutine 


ie rss 


Subroutine 
S: Gye. 


SUBROUTINE 
STATEMENT 
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FORTRAN IV COMPARATIVE ANALYSIS 


FEATURE 200 400 600 I.B.M. 5/64 A.S.A. 4/64 {REMARKS 


BLOCK DATA 
SUBPROGRAM 


Not Available Block Data only Block Data only {Block Data only 
Specification & Type, Data Type, Data 
Data Statements Statements etc. Statements etc. 


FORMATTED | RE e READ F, K READ F, K READ F, K READ F, K = 
FORMATTED PUNCH F, K PUNCH F, .K PUNCH F, K 
CARD PUNCH 
FORMATTED | PRINT ¥,. K or | print FE, Kx. or | pRInt F, K or 
PRINTER puieut | WRITE F, K | WRITE F, K [WRITE F, K 
| ar eee is "emake: Nauie’: is 
rT an. an. Array _ an 2 Array 
DEFINE FILE Not Available Define File Not are Disc 
STATEMENT E Geese File 
FIND STATEMENT Not ‘Available Tot Read PabLe. | Not Koad able: | Dise 


Not Available 


Teaeust ‘Pane is 


an ama! 
Not Available 


Not Available 
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FORTRAN IV COMPARATIVE ANALYSIS APPENDIX A INTRINSIC FUNCTIONS 


[mene [me *d | |] 
a se Sp ee 

a Eo 
ee Se eS z 


a ae a 
[isn eS otf ec ee lee 


“ek othe four as a a 
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FORTRAN IV COMPARATIVE ANALYSIS APPENDIX A INTRINSIC FUNCTIONS Cont. 


ee OO ae 
Cm Te "=a = 
ee = = eee a =a = 
eat pot ei aoe ie pe 
a ee 
a 
= 
Caer mi 


\ 


- Page 10 - A.E, Training 
HLB/ jlc-2/15/65 


FORTRAN IV - COMPARATIVE ANALYSIS APPENDIX B BASIC EXTERNAL FUNCTIONS 


5/64 S.A. 4/64 


FUNCTION 


ES ee eee) 


Not Allowed 
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- FORTRAN: IV COMPARATIVE ANALYSIS ~ APPENDIX B ‘BASIC EXTERNAL FUNCTIONS Cont. 


i 
oe ee 
Ce Le eS RSs 
a 
a (eC 
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